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UN SALUDO DESDE S.I.M.O. 

En las fotografías de esta página se ve el stand de MICROELEC- 
TRÓNICA Y CONTROL S. A. en S.I.M.O que se celebró en Madrid del 
19 al 26 de noviembre. A pesar del ruego que os formulábamos desde 
SONIMAG, la expectación despertada por el VIC-20 ha sido de las que 
hacen época, y decíamos lo del ruego para evitar aglomeraciones... 
Pero no hay manera... ¡En fin! como decimos en Cataluña: cuantos 
más seamos, más nos reiremos. ¡Un cordial saludo desde S.I.M.O. a 
todos los lectores de CLUB COMMODORE! 

En la fotografía de la izquierda, Jordi Servat, de MICROELEC- 
TRÓNICA Y CONTROL, S. A., hace entrega a Javier Melíveo del VIC- 
20 ganado en el sorteo celebrado en S.I.M.O. ¡Otro afortunado que se 
incorpora a la amplia comunidad de usuarios! (Fotografías P. Masats) 



Depósito Legal Sep. B. 2133-1958 - Altes, si, Caballero 87, Barcelona 
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EDITORIAL 



nueva etapa en 

el Club Commodore 




Aquí estamos de nuevo con una signi- 
ficativa mejora: para los suscriptores de 
CLUB COMMODORE salimos con die- 
ciséis páginas. Sin ánimo de echarnos 
faroles queremos resaltar un hecho. El 
"salto" es exactamente el doble (+3 
dB). Para dar una cierta idea del esfuer- 
zo que representa para la Redacción de 
CLUB COMMODORE viene a significar 
la preparación del DOBLE (+3 dB) de 
material, o sea que esto no es una sim- 
ple ampliación sino un gran salto ade- 
lante. 

Queremos agradecer desde aquí las 
colaboraciones que ya estamos reci- 
biendo. En este mismo número se inicia 
una sección dedicada a electrónica a 
cargo de Rafael Pardo, ya conocido por 
los lectores de MICRO/BIT. Sólo nos 
queda repetir el mismo "rollo" de siem- 
pre: ¡A VER SI SEGUIMOS EL EJEM- 
PLO! 

SE NECESITAN 

APLICACIONES EDUCATIVAS DE 
LOS COMMODORE 

Aprovechando la ocasión queremos 
hablar de un tema que consideramos 
muy importante para los ordenadores 
personales COMMODORE en general 
y para el VIC-20 en particular. Se trata 
de las aplicaciones educativas en sus 
dos aspectos principales: la enseñanza 
de la informática propiamente dicha y la 
ayuda que la microinformática puede 
prestar a la educación en general. En el 
primer aspecto, a pesar de nuestros es- 
fuerzos, no hemos detectado muchas 
iniciativas pero creemos que éstas 
deben existir. En cuanto a la ayuda que 
los ordenadores personales pueden 
prestar a la enseñanza se están hacien- 
do ciertas aplicaciones que son un buen 
principio pero algunas de ellas, por es- 
tar realizadas en el extranjero, son de 
difícil adaptación en nuestro país. Des- 
de estas páginas queremos hacer un 
llamamiento a todos aquellos que ten- 
gan alguna realización en este campo 
para que no olviden la plataforma que 



les ofrece CLUB COMMODORE para 
dar resonancia a sus trabajos, tanto a 
nivel de artículos como de reseña de 
productos existentes. 

Sólo nos queda, ya que estamos en 
diciembre, desear a nuestros lectores, 
suscriptores, colaboradores y demás 
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el mapa de 
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Con el ánimo de dar cierta continua- 
ción a la linea empezada el pasado 

^número : con . e! ártftujo, sí>bns; «¿VeWv 
; av? V sp^O'/ñcnaric)': ¿KvhP.i-.i 
mapa de memoria del BASIC 4.0. voy 
a comentaros, de forma práctica, ef 

Í'-lf:C : -Cr^r-Á~rr:ÍO V.Tv.i'HC 1-3 dkú: li- 
tas zonas de memoria (ver figura 1). 

Página cero y zona de variables 
;:m ««-i-lill 

Por página cero se entiende, estric- 
tamente hablando, la zona compren- 
-jjóé ;j¡r,.'¿- linc -...ló:;. / ■ . . ' ' 
' : ■: ; f. ■ i ■:■'). l> 

" m iivn: . ' i úe r~'í~ 



po;'JÍ}*f ; OAFi.íS ^.VíKR-í " 



(46,47) 



: - vi 1 

esta reservadí 

bles pro¡ 

Los coment 

teros tengo la 

¡env 
...... ... ... 



U ü ¿4 ert qecimalj, 

a punteros y varia- 

■: 1".:11. 

. sobre estos pun- 

■ - ; , ..... 

caeiones cómo las 



Esta zona empieza, normalmente, en 
i. V; : ' : i ' , : -i 1 - 

■:!':•:■ ir. : i • .■ 



-I (42.43) 



(40, ¿1) 
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APLICACIONES 



programa para 
cifrar y descifrar 
mensajes 



por P. MASATS 



LA CODIFICACION DE TEXTOS 
PARA SU ENVIO, A TRAVÉS DE UN 
MEDIO MÁS O MENOS PÚBLICO, 
DE MANERA QUE SÓLO EL 
EMISOR Y EL RECEPTOR SEAN 
CAPACES DE ENTENDERLOS, 
ES UNA BUENA APLICACIÓN DE 
LOS ORDENADORES, AUNQUE 
SUPONEMOS QUE POCOS DE 
NUESTROS LECTORES SE 
DEDICAN AL ESPIONAJE, HOY 
PRESENTAMOS ESTE PROGRAMA 




üin la figura podemos ver un progra- 
ma que permite aplicar el VIC-20 a un 
tema algo exótico y poco habitual en 
las revistas serias de informática: el 
espionaje (del contraespionaje quizá 
nos ocupemos otro día, del contra- 
contraespionaje y sucesivos no quere- 
mos ni oír hablar). Una de las misio- 
nes principales del buen espía es la 
de comunicar informaciones sin que 
se entere más gente de la estricta- 
mente necesaria (cosa que hacen es- 
pontáneamente los programadores de 
ordenadores cuando hablan entre 
ellos). Para ello se utiliza lo que se 
conoce como una clave, que es una 
frase corta y fácil de recordar que da 
una pauta de sustitución de las letras 
del alfabeto, de manera que los carac- 



teres del mensaje que se ha de trans- 
mitir quedan cambiados de la forma 
que indica la clave. Así si se descono- 
ce ésta, es (teóricamente) imposible 
descifrar el mensaje. 

Vamos a ver un ejemplo. Entramos 
el programa (extraemos las habitua- 
les travesuras de BUG), y pulsamos 
RUN. A la pregunta «¿TEXTO INI- 
CIAL?»: respondemos con el texto 
que queremos cifrar, que puede ser: 
«EN UN LUGAR DE LA MANCHA» 
(original, ¿eh?), pulsamos RETURN y 
el VIC nos pide: «¿CLAVE SECRETA?» 
Entramos: «VIC-20 ORDENADOR PER- 
SONAL». Después de un tiempo en la 
pantalla aparece un ALFABETO DE BA- 
SE que es el normal y debajo otro 
(ALFABETO CIFRADO) que es el re- 



sultado de modificarlo en función de 
la clave. Luego se nos pide si quere- 
mos un cifrado o un descifrado. Si pul- 
samos C obtendremos «TEXTO RE- 
SULTANTE»: 2PWJPWNJ VFW2WNV- 
WAVPCOV que es el resultado del ci- 
frado. A continuación se nos consulta 
por la opción, cuyas alternativas son: 

I: Redefinición de la clave. 

D: Descifrado. 

C: Cifrado. 

F: Fin. 

T: Entrar nuevo texto. 
Si pulsamos T y volvemos a entrar 
el texto resultante de la operación 
anterior junto con la misma clave ve- 
remos que al descifrar obtenemos el 
mensaje original. ¡Suerte a los 007 
ocasionales! 
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el mapa de memoria CBM 



; V . : ' ". y . 

:. ..y.yyyy; e a.-¿, y y yyVy y y aa- 

■ ' ' . V Vy :yy 

' yy 

■' ■ - . ■ 

La fórmula utilizada convierte en un 

■ ' ' ; -.. yyyyyy- 
do. Lo mismo podemos hacer con las 

■ " ■ ' : y yy'i . 

zona de variables), ciando el mismo 

• tres ceros- de fin de programa que 

'v"s í'.;'."r.-i:-"¿:¡"¿rr-';;. ; J y y. 'i'A, y-.- 

talle, por tanto. 1027 (en el caso de 

y y z \": ;•■:/-■. .Vi ■. . V y:y sa\: . 
linea de programa, por ejemplo: 



V 



• ' ~ r-V. AA ¡A- : A/AA. A - 

- -y ' 'yyy ; ' 

- y " "■ ' ■ ■ 

10 correspondientes a los asteriscos 

Y A. A' ' A, ;y.-0 



" . - , - .yy -a- 

'■/':} ;" : a:- :as 
r-V : . ■ y.;--, y y 

-y-yy V ü<r-y--'.'. : 
para las posiciones 44 y 45. que el final 

dirección: 1043. longitud cero compa- 
: ^ -:-: y.' yyy:> : y.y yyyy . 

Aj 

y yyVyyyyyy :y yy. y 

: -A yyyy yyr' a:1 : : '■ : 
dimos otra variable de otro tipo: 

Y"., -32766 
en 7 bytes: 1Ü57. Si variamos el valor 

Unidas no aumenta la longitud de ja 
y : - ' ; . yyy-y ; yy y-yyy.\: ■ y 
./ yyyyyy. 

'.y.yy.íi <S-V ía^~ 

• J -'yy de yyyyy' ; ' 



- 

"O. 

: 

■ y . 

tica: 
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LISTADO DEL PROGRAMA — 
PARA CIFRAR Y DESCIFRAR 
MENSAJES 



10 REM+ -»- 

20 PEM+ PROORAMA PñRfl CIFPñP V + 
30 PEM+ DESC I FRñP MEHSfi TE^ 
40 PEM+ MICROELECTPOHICfl V + 
30 PEM+ CONTROL; P. MRSñTS -*- 
60 REM + BARCELONA * 
70 REM-t- 14 — SERT . — 1982 + 

S0 REM-, H 

90 PRINT"r3" 

100 PP I h4T " **fí*****ff******^#*!ÍE#»N*** " 

110 PR I NT " # * ■■ 

120 PPINT-» PROORAMA PAPA CI- * " .: 
130 PRIHT-* FRRP V TJESCIFRHR * " ; 

140 PPINT"* MENSAJES *": 

130 PPIHT»* ; 
160 PPINT"***#********##*******#" 
17B REM 

190 RL*- "flBCDEFGH I JKLMNOPIPPSTIIVUWZ 0123 
456789- 

190 RLÍ-flLÍ*", . - i -?.;««#« ry : »-^>^»+. 
200 RL*=RL*+CHP*f34> :REM CHR*f34)«" 
210 LG=LEN(RL*> 

220 REM ENTRADA DEL TEXTO 
230 PPINT "TEXTO INICIRL : " 
240 INPUTTE* 

230 REM INTRODUCCION DE l_R CLAVE 
260 PPINT"CLAVE SECRETA" 
278 IMRUTCL* 

288 REM SUPRESION DE LAS LETRAS REDUNDAN 
TES 

290 GOSUB730 

300 REM COMPLETAR LR CLAVE CON LRS LETRA 

S QUE PALTAN 

3 10 \'*=>CL* 

320 FORN-1TOLG 

330 A»-MID«(ALf.N, 1) 

340 GOSUB828 

330 CL*-CL*+A* 

360 NEXTN 

370 REM IMPRESION DE LOS DOS ALFABETOS 
360 PPINT" 73" 

390 PR I NT " ALFABETO DE BASE " 
400 PRINT 
410 PRINTAL* 
420 PRINT 

430 PRINT "ALFABETO CIFRADO" 
440 PRINT 
430 PRIHTCL* 



600 
610 



690 
690 
700 
710 



IMPRESION DE CADR LET 



TA»; GOTO620 

1,-15 1 



< I , D. C 



T > ' 



460 PRINT 

470 REM CIFRADO O DESCIFRADO ■> 

480 PRINT"CI FRRDO O DESCIFRADO 

C O DV 

490 INPUTED* 

300 I FEDtO " C " RNDED*<> '■ D " THEN490 

310 IFED*-"C"THENE*-AL« • S«"CL« OOTO530 

320 E*-CL* : S*-AL* 

330 REM BUSQUEDA E 

340 PRINT'TJ" 

530 PRINT "TEXTO RESULTANTE '" PRINT 
360 V*=-E* 

370 FORL™l TOLEN ÍTE*) 
300 A*-MID*CTE*.L,1) 
390 GOSL1B820 

IFA-0THENPRIN 
PRINTMIMtS» ■ 
620 NEXTL 
630 PRINT 
640 REM SEGUIR 
630 PRINT 
660 PRINT-FUNCION 
670 INPUTED* 

I FED*- " D "OREB*- " C " THEN300 
IFED*-" I " THENPR I NT " TI" ■ GOTO230 
I FED*- " T " THENPR INT " 71" : OOTO220 
I FED*<> "F " THENPR I NT "73" = OOTO660 
720 END 

730 REM SUPRESION DE LETRAS REDUNDANTES 
EN LA CLAVE 
740 C*-"" 

730 FORN-lTOLEN<CL*> 
760 Aí-MID*<CL*.N. 1) 
770 V*-C* • GOSUB830 
7S0 C*-C*+A» 
790 NEXTN 
000 CL*-C* 
818 RETUPN 

S20 REM BUSQUEDA DE CARACTER DENTRO DE U 
NA CADENA 
£330 A-0 

340 FOPK.lTOLEN'Víl 

e30 IPA*— MID*TV*, K , 1 )THENA«- A=»K : K-LEN 

(V«> 

S60 NEXTK 
070 RETIJRN 

READV. 



esto es: una cadena (seeiiertcia) do 
caracteres. Et número máximo de éa- 

Volviendo al tema de las «zonas», 

a los 2 bytes de lincaje (enlace] nece- 

, :i ■ cCS: J„': 1;."': . ; ' ... 

rección actLinl del fin de lo zona de 

Las instrucciones CLR y NEW 

tintas zonas do memoria en que se 
divide la RAM con el trabajo del BASIC 
t "■ "ior ,- J L:o;- i ".yj ana 
idea un «poco» mas clara de su fun- 

Y hablando de «clara» vamos a Hrn- 

(cleár). Lo que hace esté Vsfaiétñérit» 
del BASIC es. sencillamente poner a 
cero las longitudes de estas zonas ha- 

•:- l ""iCú U:/'-: p:'0:.-.:::;"'.írC" 'd d" ■ : •' 

y fin de variables iguales a la dirección 
del principio de variables. Como si 
hiciéramos la siguiente secuencia: 



: = : :. : . '.' : ' .: ' ' r'ra .• ' 

. ■ ' / . :- : - - / ; . 

• ' ''-t;t; ^ ~ ' " , :.: • v ' . - - 

. - ' d ; ' • ' ;■; ; y ;d a d 

' : . . .. :.: -. 
EL futuro en Ventana CBM 




tengo la intención de profundizar más 
en esta linea con los temas que pro- 
: ; : :-. ' . 

— Zona de strings 2.' parte y el 
«garbage collection» 

¿cr.-í üs c -*::q:-i~ss 

— Estructura de las cabeceras de 

v*'5'd:.:vé.S 

Como siempre, acepto vuestras su- 
gerencias y me gustaría saber si pre- 
ferís que a todo esto se adelante el 
■ í\:erah ...rV ;';r.'.,:v'"!';-:v.-v : ^"i , /u 

de las unidades de discos «Commodo- 
ríü. c '50. 



UN ANUNCIO PARA ANUNCIANTES 

Las páginas del CLUB COMMODORE están disponibles (no todas) 
para publicidad de productos relacionados con los ordenadores 
personales de COMMODORE. Los interesados en este tema pue- 
den llamar a: MICROELECTRÓNICA Y CONTROL, S. A. Teléfono 
(93) 250 51 03. Los que así lo hagan pueden contar — de antema- 
no — con el eterno agradecimiento de alguno de nuestros redac- 
tores, atosigado por este moderno tormento chino llamado «cierre 
de edición». 
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10 REM EMISOR COMUN 

20 PRINT"TTñE(3> "EMISOR COMUN" 

30 PRINT = PRIHT" 1-HPH" 

•4-0 PRINT - PR I NT " 2 — PNP " 

30 PRINT : PRIHT"PULSE 1 O 2" 

66 GETZ* : IFZ*=" 1 "THEHH=1 - GOTO90 

7"© I FZ*= " 2 " THEHN = 2 = GOTO90 

es GOTOSO 

90 PR I NT " 73" ■- IHPUT"UCC<V> " i UC 
100 PRINT ■ INPUT" IC<MR> " ; IC 
110 PRINT : INPUT "UCE <V> " ; Ul 
120 PRINT : INPUT"UECV) " i U2 
130 PRINT : I NPUT " HFE " ; HF 

1- 40 PRINT = INPUT "S" ; S 

1 30 PR I NT = I NPUT " H I E < KOHMS > " ; H I 
160 PRINT : INPUT"RG<KOHMS) " ; RG 
170 PRINT : I NPUT " Rl_ < KOHMS > " J RL 
130 PRINT : I NPUT " FTM I N < HZ > " ; FT 

130 print -ra" 

200 IB— ICs'HF : IE*IE+IC ■ RE=U2/IE 
210 RC=<UC-(U2+U1 >>/IC 

220 RB-< <RE*S>-RE>/<1-<S/<HF+1 >>> 

230 IFH»1THENUH=IB*RE+. 6+- 1 B#RE* < HF+ 1 > ■ GO 

TO230 

2- 40 UH*IB*RB-. 6+IB*RE*CHF+l > 

230 R1=UC*<RB/UH> = R2=<RB*R1 V<Ri-RB> 

260 PR I NT " CALCULO DE LAS RES I STENC I R3 " 

27-0 PRINT : PRINT"RC=" i RC ; ■■KOHMS" 

230 PR I NT : PR I NT " RE= " ; RE i "KOHMS" 

290 PRINT : FRINT"R1=" i Rl i "KOHMS" 

300 PRINT : PRINT"R2=" ; R2; "KOHMS" 

310 GOSUBQ30 

320 PR I HT " ™(*NORMRL I ZflR## " 

330 PRIHT-RC-" i RC = PRINT "RE-" i RE = PRINT"R1 
=■»" ; Rl : PRINT"R2=" ; R2 

3- 40 PRINT : PR I HT " NORMRL ICE ESTOS VALORES" 
330 PRINT : INPUT-RC" ; RZ = INPUT "RE" ; RN ■ INPU 
T"R1 " ; R3 - INPUT"R2" ; R-4 : PR I NT " 73" 

360 RV=<R3*R4>/CR3+R4) : US»<UC*R4>/CR3tR4 

y 

37*0 IFH-1THENI V-<US-. 6>/<RV+<RH*<HF+l >>> 
■ GOTO390 

380 IV=<US+, 6V<RV+<RN*CHF+1) > > 

390 IZ=HF*IV ■ IN*IV+IZ 

■400 U4-IH#RN : UE=-IZ*RZ 

■410 UD«=UC-ÍUB+U4> 

420 PRINT"VRRIHCION DEL. PUNTO Q " 

430 PRINT" IC<DRDR>="" ; IC 

440 PR I HT " I C < CHLCULñDfl > - " j IZ 

-430 PR I NT " UCE < DRDR > ™" i Ul 

460 PR I HT " UCE < CRLCULRDfl > - " 1 UD 

47*0 FRINT"UE<DADR>«" J U2 

480 PR I NT " UE C CRLCULRDfl ) - " ; U4 

490 PRINT = PRINT" 1-VRRIRCION DE LOS 



300 
310 
320 
330 
340 
330 
360 
?570 
380 
390 
600 
610 
620 
630 

6- 40 
630 
660 
L> > 
67-0 
680 
690 
7*00 
7" 10 
7*20 
7"30 

7- 40 
7*30 
760 
7* 7-0 
7-30 
JO" 
790 

800 

910 
820 
830 
IER 
840 



PRINT = PRINT-2-SEGUIR EL PROVECTO" 

PRINT : PRINT"PULSE 1 O 2" 

GETB* ■ IFB*-" 1 " THEN20 

IFB*-"2"THEN330 

GOTO320 

PR I NT " 72" ■ GM- < I Z/26 > W 1 000 

RS-HF/GM = R6-HI-R3 

UT-RV/< RV+RG > 

V— < RZ*RL > S < RZ+RL > 

RT=- < RV#RG > S C RV+RG > 

D«<RT/CRT + HI > >*RS*GM*Y 

RV=20#<LOG<D>/LOG< 1©> > 

PRINT"CRLCULO DE Lfl GRNRNCIfl" 

PR I NT : PR I NT " FIV- " ; RV i " DB " 

GOSUB830 

PRINT-nCRLCULO DE LOS CONDENSADORES " 
L-R6+R3+RN*ÍHF+1 > •■ RH»RG+< ÍRV*L>^<RV + 

W=CR3+R6+RV)/CHF+1 > : RM-<RH*W>/<RH+W> 
RO-RZ+RL 

CI-lE + 3^<2*ir*RH*<:FT^5> > 
CE* 1 E+3/ < 2*ít*RM*FT > 
CO-=lE + 3^-'<2í4iTr*RO*<FT^'3> > 
PR I NT : PR I NT "CI N= "jCU " UF " 
PR I NT : PR I NT " CE= " ; CE J " UF " 
PRINT : PRIHT"COUT=" J CO J "UF" 
GOSUB830 

PR I NT " 731 — REPET I R RESULTRDOS " 

PRINT : PR I NT " 2— NUEVO PROVECTO" 

PRINT = PRINT-3-FIN DE SESION DE TRRBR 

PR I NT ; PR I NT " PULSE 1,2 O 3" 
GETE* = IFE»-" " THEH300 
Z*VRL<E*> - ON2GOTO190, 20, S20 
END 

PRINT : PR I NT " PRRR SEGUIR PULSE CURLQU 
TECLR" 

GETR* : IFR*=" "THENS40 
RETURN 



(Fig. 1) 



ELECTRÓNICA 




Aquí empieza una colaboración que es- 
peramos sea interesante para los lectores 
de CLUB COMMODORE. R. Pardo, que ya 
ha publicado algunos trabajos en «MI- 
CRO/BIT», va a llevar sobre sus hombros 
la responsabilidad de una sección de 
nuestra Revista dedicada a programas 
para diseño de electrónica. ¡Le deseamos 
mucha suerte! 



fcste programa calcula etapas pre- 
amplificadoras de baja frecuencia en 
emisor común, con transistores PNP o 
NPN de silicio. Si se quisiera trabajar 
con transistores de germanio se de- 
bería cambiar en las líneas 230, 240, 
370 y 380 el valor .6 por el .1. 

El programa funciona de la siguiente 
manera: 

Las líneas 20-80 piden el tipo de 
transistor con el que se quiere traba- 
jar (NPN-PNP) y se debe pulsar solo la 
tecla que el ordenador indica (no es 
necesario pulsar RETURN). 

Las líneas 90-180 permiten entrar 
los valores de los parámetros a los 
que se debe ceñir el diseño. [Se deben 
introducir los valores en las unidades 
que le indique el programa. No debe 
hacerse de otra manera porque podría 
dar resultados erróneos). Después de 
introducir cada valor se debe pulsar 
RETURN. 

En las líneas 190-250, el programa 



VARIABLE 



NPN 



PNP 



VARIABLE 



NPN 



PNP 



Ucc 


20 V. 


20 V. 


le 


2mA. 


2 mA. 


Uce 


4V. 


4V. 


Ue 


1 V. 


1 V. 


hFE 


100 


100 


S 


10 


10 


hie 


6 Kohms. 


6 Kohms. 


Rg 


1 Kohms. 


1 Kohms. 


RL 


15 Kohms. 


15 Kohms. 


Ft 


100 Hz. 


100 Hz. 


Re 


7.5 Kohms. 


7.5 Kohms. 


Re 


.495 Kohms. 


.49 Kohms 



R1 
R2 

Rc(Norm.) 

Re(Norm.) 

RKNorm.) 

R2(Norm.) 

lc(Cal.) 

Uce(") 

Ue(") 

Av(dB) 

Cin 

Ce 

Cout 



58.214 Kohms. 
5.404 Kohms. 
7.5 K. 
.51 K. 
56 K. 
5.1 K. 
1 .903 mA. 
4.744 V. 
.9809 V 
35.61 dB. 

1 .494 muF. 
18.179 muF. 
.353 muF. 



198.23 Kohms. 
5.07 Kohms. 
7.5 K. 
.51 K. 
200 K. 
5.1 K. 
1 .942 mA. 
4.138 V. 
1 .000 V. 
35.69 dB. 
1.426 muF. 
17.769 muF. 
.353 muF. 



por R. PARDO 

calcula los valores de las resistencias 
de polarización y en las líneas 260-300 
los presenta. Si alguno de los resulta- 
dos da negativo es debido a que antes 
se han introducido unos valores que 
no «cuadran» con los demás. Revise 
sus datos, corríjalos y vuelva a ejecu- 
tar el programa. 

Las líneas 320-350 piden que se nor- 
malicen los valores de resistencia. Las 
líneas 360-41 calculan la variación del 
punto Q; las líneas 420-450 le presen- 
tan las variaciones de Q que han ocu- 
rrido y pregunta si debe seguir el dise- 
ño o vuelve a presentar la entrada de 
datos para corregir alguno de ellos. 
Si se elige lo último, no deben intro- 
ducirse de nuevo todos los valores. 
Púlsese RETURN hasta que aparezca 
el que se quiere variar, introdúzcase el 
valor y repítase el RETURN hasta que 
se termine de ejecutar la entrada de 
datos. Entonces el programa sigue 
normalmente. 

Sigue el programa y las líneas 550- 
610 calculan la ganancia total de la 
etapa, presentándola en las líneas 620- 
630. El cálculo de los condensadores 
de acoplo se realiza en las líneas 650- 
710, presentándose sus valores en m¡- 
crofaradios (líneas 720-740). 

Las líneas 760-820 preguntan si se 
desea iniciar un nuevo proyecto, repe- 
tir resultados (en este caso, en la sec- 
ción NORMALIZAR no debe volverse 
a introducir de nuevo los valores nor- 
malizados; bastará con pulsar RETURN 
cuatro veces y el programa presentará 
los valores anteriores de la variación 
del Q) o bien finalizar la ejecución del 
programa en cuyo caso el ordenador 
responderá READY. 

Las líneas 830-850 contienen un pe- 
queño subprograma para facilitar el 
paso de una pantalla a 



JUEGOS DE VALORES PARA LA 
COMPROBACIÓN DEL PROGRAMA 

En la tabla adjunta se dan dos jue- 
gos de valores para la comprobación 
del programa. u 




i— > 
r-C 



■ü-Ar;."; o¿¡ 



inicios del 
VIC-20 en RTTY 



O abemos de algunos radioaficiona- 
dos que ya están trabajando la mo- 
dalidad de RTTY con el VIC-20. pero 

tí--n',r-\: - • ■ 'V : ;rc- ■:. 

manos una revista alemana, con un 
' .y--:::s. X\\v\~m T;"l.í"'. ; -r-h-:: : , 
y las palabras Baudot y TTY, cundió 
el pánico. ¿Será?, ¿no será? Pusimos 
manos a la obra: entrar el programa 
y buscar al amigo de turno que nos 

Al^Ji : : *í v- ; :X^'C-., . 

El resultado de la traducción indi- 
caba que. para los que deseasen uti- 
lizar como impresora barata del VIC- 
: .: ':r.'- ^qa&j :"vn?=:,:ve xri>- 

Oá-r'á Í':;:í :;'V'í' í .T-s ;'. vv ó: 

ño circuito de la figura 1, lo acoplá- 
bamos. Si traducía los caracteres pa- 
ra e' 'r-r.vüoc, -ó r>o!Ílmíüy-:, vnil:^ 
¡en RTTY! Había que comprobarlo. 

El funcionamiento del programa in- 
dicaba que cualquier mensaje que 
"-' .'■ ■r.'': , i-¿^,hOt ;..?;ráv.¡a o Inron-;- 



sora saldría también hacia el tele- 
La primera prueba que se hizo fue 
imprimiendo varias «R», que cono- 
cíanlos de verlas en diagramas de 
' ■ : ' :>h';.e,- u '?.-;de ra .aa;...; en a: 
q:hv'c , .¡:'---V':>o T o ;•>.'& ur. t;r, A-:- c. . ' 
que, los cinco de mensaje correspon- 
dientes, uno y medio de stop y cada 
uno duraba 22 ms: ¡era BAUDOT! 
Después de este primer éxito de- 



2N2905 



: i 



Fig 1 - Esquema de conexión del teletipo 

con el pon del usuario. 
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RINCÓN DEL VICCOLAGE 





con el 



del VIC-20 en RTTY 



(viene de la pág. anterior) 



1 POKE56,23 

5 PRINT»^ TELEK" 

10 FORX=0TO255 ' REñDñ = PÜKE7424+X, Fl : NEXT 

20 PRINT")IBVS?648 IMPRESION ON " 

30 PRINT"SVS7659 IMPRESION OFF " ; EHD 

100 BñTni65 J 24S, 162, 128. 142, 18, 145,201, 1 
3, 208, 1S, 8, 32, 33, 23 

116 DRTR1 69, 2, 32, 33, 23, 169, 0, 76, 33, 29, 23 
4,41, 63, 178, 139, 116 

132 DñTñ 29, 133, 249, 41 , 32, 197, 24S , 240, 14 
,133, 24S , 1 68 ,240,4, 163,27 

14S DRTR20S, 2, 169, 31 , 32, 63, 29, 165, 249, 32 
, 63 ,29,1 98 , 250 ,96,1 62 

164 DRTR127, 142, 16, 145, 32, 102, 29, 160,4,7 
4 , 144,4, 1 62 , 255 , 208 , 2 

1 88 DñTR 1 62 , 127, 142, 16, 145, 32 , 102,29. 13fi 
, 16,238, 162,255, 142, 16, 145 

196 DRTR162, 30, 32, 104, 29, 96, 162, 20, 1 34 , 2 
47,1 62 , 223 , 202 , 208 , 253 , 1 98 

212 DRTR247 , 16,247,96,0,3,25, 14,9, 1, 13,2 
6, 20, 6,11,15 

22S DRTR1S, 28, 12, 24, 22, 23, 10,5, 16, 7, 30, 1 
9, 29, 21 , 17, 47 

244 DRTR0, 50, 45, , 36 , 60 , 37, 45, 5,61, 49, 37 
, 47, 50, 45, 49 

260 DRTR44, 35, 60, 61 , 54, 55, 51 , 3^¡, 42 . 48 . 53 
, 39, 38, 56, 46, 44 

276 DRTR36 , 62 , 36 , 57 , 72 , 1 33, 249, 138,72, 15 
2, 72, 165, 249, 201 ,13, 240 

292 DRTR14, 166, 250, 208, 16, 72, 169, 13, 234, 
133,249,32,0,29, 104, 162 

303 DRTR65, 134, 250, 133, 249, 32, 0, 29, 104, 1 
68, 104, 170, 104,76, 122,242 

324 DRTR 1 69 , 180, 141,38,3, 169,29, 141,39,3 
, 96, 169, 122, 141 , 38, 3 

340 DRTR 1 69 , 242 , 141, 39, 3, 96, 234, 234, 234 , 
234, 234, 234, 234, 234, 234, 234 

REñDV . 



(Fig. 2) 



ibación de todos los 



caracteres perc 
í /: "¿i-. -Aí :-:<- : \ 

So monto el modulador que pareció 
i'Jórv-v-. con .;?>:; o 'J; :-nto- 
XBAJA -i! s-n:,... v 
plable al pon del usuario. 

Otro colega con mucha paciencia 
aguantó el recital de pitos comproban- 
do todos los caracteres: ¡FUNCIO- 

A posteriori hemos procedido al 
análisis del programa (fig. 2), de solo 
256 bytes en código máquina. La base 
de funcionamiento consiste en inter- 
ferir la rutina de impresión, traducien- 
do cada carácter a Baudot y dando la 



Una vaz cargado el programa y eje- 

es que hemos cargado y protegido el 
programa en código máquina conte- 
nido en las líneas DATA. Para activarlo 

lo con SYS7659 o bien pulsando las 

f rWÍv y r'x.£' r ' / ■ 
" "h. 

La primera prueba que podemos 

- - .- r ;, :rVVv,i A":. \ ' í¡ ■ 

un LIST. La velocidad del listado se 
produce a 45.45 baudios por la salida 



Alguno de nuestros amigos se esta- 
rán preguntando si en verdad el equipo 
de Redacción está descuidando un po- 
co su ortografía, otros dirán dirán que 
nuestra mascota, el BUG, ya ha estado 
haciendo de las suyas; bien, pues ni 
lo uno ni lo otro. El nombre de «RIN- 
CÓN DEL VICCOLAGE», con el que, a 
partir de este momento y hasta que no 
se nos ocurra otro mejor, denominare- 
mos a esta sección de la Revista, in- 
tentará ser una fuente de ideas lumi- 
nosas para esa rara especie — algunos 
dicen que en vías de extinción — lla- 
mada HOMO VICOLATRIX, especie 
ésta que se diferencia del HOMO 
SAPIENS en que se empeña en hacer 
él mismo lo que los demás saben ha- 
cer mejor y más rápido (y a los que ha 
de recurrir al final en muchos casos). 

En esta sección intentaremos dar 
ideas simples, fáciles de poner en 
práctica y que no signifiquen un gran 
desembolso para nuestros lectores. 
En suma, ideas geniales. 

La idea general de los artículos que 
en esta sección irán apareciendo, es 



^tíos («1 » lógi- 
; .:cio) y a cero cuan- 

Coi : ' - 

■ L V 

... . ... .. . .... 



la de poder disponer de una serie de 
desarrollos simples y modulares que 
nos permitan, en un momento dado, 
recopilarlos parcial o totalmente en 
una aplicación determinada, por ejem- 
plo, CÓMO AUTOMATIZAR SU HO- 
GAR CON EL VIC-20, aplicación ésta 
que será la base de nuestros próximos 
artículos. 

Hacemos una invitación desde estas 
líneas, para que todos aquellos que 
deseen ver su nombre y obra impresos 
en letras de molde, nos remitan sus 
trabajos lo más completos, detallados 
e inteligibles posible. Los trabajos ten- 
drán que ser comprobados, por lo cual 
sería de agradecer que, junto con el 
artículo, nos remitieran un prototipo 
del desarrollo, que será devuelto. 

La manera más elegante de presen- 
tarnos un artículo sería: 

1. El artículo en sí, con una justifica- 
ción lo más clara posible del por- 
qué del desarrollo; una descrip- 
ción a nivel de señales del funcio- 



por M. SANS 



namiento; una lista de materiales, 
etcétera. 

2. En folios aparte, los esquemas del 
diseño en cuestión. ¿Entendido? 
Bien, pues ánimo y adelante, espe- 
ramos vuestros trabajos. 

Sí, sí, todo esto está muy bien — di- 
rá alguno de nuestros sufridos lecto- 
res — , pero ¿qué hacemos los que sin 
dedicarnos al VICCOLAGE tenemos al- 
gún problema de HARDWARE? ¿No 
podríamos solucionarlo nosotros mis- 
mos? ¿Será esto VICCOLAGE? 

Bien, tranquilos, los amigos que ten- 
gan algún problemita pueden escribir- 
nos con el máximo de detalles e inten- 
taremos solucionarlo, publicando la 
respuesta en otra sección de la Revis- 
ta, a la que llamaremos ¡SOCORRO! 



UNA APLICACIÓN PARA 
AHORRAR ENERGÍA 

En estos tiempos en que la energía 
es tema cotidiano, veamos qué es lo 



que podemos hacer para aprovecharla 
mejor. 

Con la entrada en el invierno, es 
cada vez más común la utilización de 
calefacción eléctrica, bien en forma 
de placas, bien en forma de radiadores 
o calefactores (¿dónde están los bra- 
seros o las chimeneas con sus troncos 
ardiendo?). Bien, pues, la aplicación 
que proponemos nos permitirá aho- 
rrar en calefacción del orden del 10 
al 20 %. 

La primera pregunta que se nos ocu- 
rre es ¿cómo podemos utilizar nuestro 
VIC-20 para controlar la calefacción?, 
¿qué interfaz supercomplicada ten- 
dremos que diseñar para controlar to- 
do esto? Bueno, la primera idea que 
se nos ocurre consiste en disminuir 
la calefacción durante las horas de 
sueño. ¡Bravo!, ya tenemos un punto 
de partida. Si, además, disminuimos 
también la temperatura, dependiendo 
de. la ausencia de ocupantes en la 
habitación, tendremos un ahorro con- 
siderable. 

Bien, tomemos como ejemplo un 
radiador de convección (placa) con un 
termostato incorporado. El sistema de 
control que hemos de adoptar ha de 
ser tal que no necesitemos de una 
interfaz de potencia, ni tengamos que 
efectuar grandes modificaciones en 
nuestra instalación eléctrica. Además, 
en caso de fallo del ordenador, cosa 
no del todo improbable (¡toquemos 
madera!) hemos de evitar, en lo posi- 
ble, que los ocupantes de la habitación 
adquieran la apariencia de ¡pollos a 
l'ast! La solución que se nos ha ocu- 
rrido es poner cerca del termostato 
una resistencia de tal manera que po- 
damos hacer que radie calor, con lo 
cual el termostato creerá que la tem- 
peratura de la habitación es más alta, 
y la disminuirá. Esta resistencia se ha 
de colocar lo más cerca posible del 
bimetal del termostato. 

(pasa a la pág. siguiente) 



BOLETÍN DE SUSCRIPCIÓN - club commodore 



NOMBRE 

DIRECCIÓN 

POBLACIÓN ( ) PROVINCIA 

TELÉF MARCA Y MODELO DEL ORDENADOR 



EDAD 



APLICACIONES A LAS QUE PIENSA DESTINAR EL EQUIPO 



Deseo iniciar la suscripción con el n.' 



(Enviar a la dirección del < 



Firma, 



DESEO SUSCRIBIRME A "CLUB COM- 
MODORE" POR UN AÑO AL PRECIO 
DE 1.100 PTAS., QUE PAGARÉ CON- 
TRA REEMBOLSO AL RECIBIR EL NÚ- 
MERO CON EL QUE SE INICIA LA SUS- 
CRIPCIÓN. DICHA SUSCRIPCIÓN ME 
DA DERECHO, NO SÓLO A RECIBIR LA 
REVISTA (ONCE NÚMEROS ANUA- 
LES), SINO A PARTICIPAR EN LAS AC- 
TIVIDADES QUE SE ORGANICEN EN 
TORNO A ELLA Y QUE PUEDEN SER: 
COORDINACIÓN DE CURSOS DE BA- 
SIC, INTERCAMBIOS DE PROGRA- 



club commodore 

8 cómo automatizar su hogar con el VIC-20 



(viene de la pág. anterior) 

En la figura 1 tenemos la estructura 
general del conjunto resistencia-con- 
trolador-radiador. 



En la figura 2 se da el diagrama del 
circuito de control en el que, mediante 
un circuito CMOS 4049, controlamos 



un transistor trabajando en conmuta- 
ción. Con este transistor (un 2N3643 
ó equivalente) controlamos un relé 
reed de 5 voltios. 
Si desde nuestro VIC-20 programa- 




RELE REED 



I 

1K 

TR1 IC1 



PBO 



RADIADOR © 



TERMOSTATO 



TR1 = 2N3643 
IC1 = CMOS«MS 





SISTEMA 
CONTROLADOR 



*><=>■ RED 



Fig. 1 
»V+ 



|2000uF 



LM309K 



" 5uF 



-0+5 V 



Fig. 3 



-OGND 



MEA CULPA 

una aclaración 
al listado del 
artículo "DOS 
PROGRAMAS 
INTERESANTES" 
(Publicado en el n.° 2, 
Pág. 7) 



25 Print chrtC145 



PñRR-LHDR I LLOS " 



2G print " IBlLPsbes IMPEDIR que se te amo 
in ■tome i-i los. LADRILLOS" 
27 Print " SF'ara cransesuii-lo. ■ . 

PñRflLOS ! ! • " 
2S Print "!»Co-ntrol eje l a toarra : " > , , " * > 
Izquierda. ■' 

29 Print "El Derecha. " 

30 Pri-nt "SI ««Para comenzar PULSH 
UNA TECLA. " 



Sería por la emoción de publicar nuestra primera colaboración, o porque 
estábamos en la Luna (no solemos ir a menudo), pero la cuestión es que se nos 
coló una mala pasada de BUG en el listado de la izquierda de J. MELGAR. En 
las líneas 25, 26, 27, 28, 29 y 30 hay una serie de mensajes en minúsculas que 
reconocemos son difíciles de interpretar tal como los hemos listado. Para repa- 
rar el error y después de pedir los perdones que haga falta (y habiendo casti- 
gado a BUG de cara a la pared durante algunos milisegundos) damos en la 
figura adjunta el listado correspondiente en minúsculas. 



mos un nivel bajo en la salida PBO del 
port del usuario, el circuito IC1 nos 
aplicará un nivel alto a la base del 
transistor TR1, activando éste al relé. 

Vemos que, en el caso de un fallo 
en el controlador o en el circuito de 
¡nterfaz, en el peor de los casos (que 
el relé se quedase activado) la tempe- 
ratura de la habitación tendería a ba- 
jar. 

En la figura 3 se presenta el diagra- 
ma de la fuente de alimentación, ya 
que tenemos un consumo limitado en 
el VIC. En el próximo número veremos 
cómo controlar el número de personas 
en una habitación y el programa de 
control del sistema en BASIC. ■ 



Cp 
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FILOSOFÍA APLICADA (I) 



la ley de Murphy 

y 
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Hay que advertir de antemano al lec- 
tor que no se ha equivocado de revis- 
ta y que el equipo que redacta CLUB 
COMMODORE no se ha pasado en blo- 
que de las Ciencias a las Letras. Lo 
que ocurre es que — sin que sirva de 
precedente — queremos hacer llegar 
al usuario de ordenadores personales 
algunas consideraciones «casi filosó- 
ficas» sobre las cosas que nos ocurren 
a todos cada día. 

Solemos considerar que hoy en día 
la Ciencia tiene una respuesta para 
cada pregunta que podamos formular. 
Aunque esto no es comúnmente acep- 
tado por los científicos profesionales, 
al hombre de la calle se lo han hecho 
creer de una manera o de otra y en 
unos tiempos en los que se tiende a 
valorar las cosas que nos rodean des- 
de un punto de vista estrictamente 
práctico, no dejan de sorprender cier- 
tos «comportamientos» de objetos su- 
puestamente inanimados y la malévo- 
la inoportunidad de ciertas «casualida- 
des». 

Si usted ha recibido alguna vez una 
llamada telefónica en el momento de 
instalarse en el baño; si después de 
esperar un buen rato el autobús éste 
aparece a los pocos segundos de en- 
cender un cigarrillo; si usted ha lava- 
do el automóvil horas antes de que llo- 
viera o le ha sorprendido la lluvia el 
único día que no llevaba paraguas, en- 
tenderá perfectamente a qué nos refe- 
rimos. (Conscientemente evitamos ha- 
cer una lista — siquiera superficial — 
de los centenares de trastadas que su- 
frimos habitualmente los usuarios de 
ordenadores. Sería demasiado fácil.) 

La Ley de Murphy fue el primer paso 
que dio un ingeniero aeronáutico nor- 
teamericano de este nombre en 1949 
para «sistematizar» (?) estos imponde- 
rables que, por serlo, escapan a la 
Ciencia y — es evidente — no pueden 
ser tratados seriamente ni por la Lógi- 
ca ni la Mística. La Ley de Murphy 
dice: 

SI ALGO PUEDE IR MAL, IRÁ MAL 



por PERE MASATS 

Lo cual no parece gran cosa a pri- 
mera vista... Hasta que uno — natu- 
ralmente escéptico — empieza a ensa- 
yar su aplicación. Entonces, los resul- 
tados son pasmosos. 

Desde 1949 ha corrido mucha tinta 
y en lo que respecta a los aspectos 
prácticos de la Ciencia las cosas han 
avanzado a una velocidad no menor a 
la causada por una enérgica patada en 
el trasero. Con ello, la Técnica tam- 
bién se ha complicado y con ella han 
crecido las oportunidades de la aplica- 
ción de esta Ley. También con el paso 
del tiempo se han multiplicado los 
filósofos espontáneos y con ellos los 
corolarios y adaptaciones a diferentes 
aspectos del trabajo de cada día. En 
este artículo vamos a dar una lista 
de los que han llegado a nuestras ma- 
nos — gracias a la colaboración de 
M. Amado de «Microelectrónica y Con- 
trol» — , y como no sufrimos el síndro- 
me de la falsa modestia empezaremos 
por nuestra versión de la Ley de Mur- 
phy: 

SI ALGO PUEDE IR MAL, NO SÓLO 
IRÁ MAL SINO QUE ADEMÁS LO 
HARÁ EN EL MOMENTO MÁS 
INOPORTUNO 

Así, el llamado COMITÉ DE LA SO- 
CIEDAD INTERNACIONAL DE INGE- 
NIEROS FILÓSOFOS dice haber descu- 
bierto lo siguiente: 

1. En cualquier fórmula las constan- 
tes (especialmente las obtenidas 
en manuales de ingeniería) deben 
ser tratadas como variables. 

2. El prometido plazo de entrega de- 
be multiplicarse por un factor de 
2.0. 

3. El rendimiento estimado por el 
fabricante de un producto debe 
multiplicarse por 0.5. 

4. El rendimiento estimado por el 
vendedor debe multiplicarse por 
un factor de 0.25. 

5. Cuando más de una persona es 
responsable de un error de cálcu- 
lo, ninguna tendrá la culpa. 




6. Cuando se establezca un índice 
de seguridad, un idiota ingenioso 
calculará rápidamente un método 
para excederlo. 

7. Las cláusulas de garantía quedan 
anuladas con el pago de la fac- 
tura. 

8. La pieza que la fábrica se ha olvi- 
dado enviar es la única absoluta- 
mente necesaria para que el apa- 
rato funcione. 

9. No sólo la fábrica se ha olvidado 
enviar la pieza sino que además 
raramente la fabrica. 

10. Las partes que precisen ajuste o 
servicio periódico serán las me- 
nos accesibles. 

Como piezas sueltas de este mues- 
trario veamos las siguientes: 

— Es imposible hacer nada a prueba 
de tontos porque los tontos son 
muy ingeniosos. 

— La otra cola siempre avanza más 
aprisa. 

— Cuando nuestro avión llega con re- 
traso, el avión con el que debemos 
enlazar despegará puntualmente. 

— Las posibilidades de que una tos- 
tada caiga al suelo por el lado de 
la mantequilla son directamente 
proporcionales al precio de la al- 
fombra que hay debajo. 

— Cualquier aparato funciona mejor 
cuando se enchufa. 

— No hay que forzar nunca un apara- 
to; basta con utilizar un martillo 
más grande. 

— En tareas de investigación, si los 
hechos contradicen la teoría, los 
hechos deben ser descartados de 
inmediato. 

— El hombre que sonríe cuando las 
cosas van mal, es que ya ha encon- 
trado a quien echarle la culpa. 

— Bajo las condiciones más rigurosa- 
mente controladas de presión, tem- 
peratura, volumen, humedad y de- 
más variables, el organismo reac- 
cionará como le venga en gana. 

— En poker, una pistola Parabellum 
gana a cuatro ases. 

(continuará) 
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MAPA DE MEMORIA DEL VIC-20 (IV) 



un editor de 
caracteres para el VIC 



por PERE MASATS 



Este es — de hecho — la continua- 
ción lógica del artículo anterior, en el 
que se realizaba un análisis detallado 
de las funciones del «chip» más impor- 
tante del VIC-20: el controlador de 
video. A causa de la naturaleza del 
tema no era posible dar una aplicación 
inmediata al contenido del artículo y 
éste tuvo que «salir» con más texto 
que listado. En CLUB COMMODORE 
es nuestra intención dar — siempre 
que sea posible — la información teó- 
rica necesaria pero acompañada de 
una aplicación práctica inmediata y 
probada. Éste es el caso del programa 
que presentamos en este número y 



que es uno (el mejor a nuestro juicio) 
de los conocidos como «Editores de 
caracteres». ¿Qué es un «Editor»? Co- 
mo este concepto se utiliza a menudo 
en informática, vamos a detenernos 
un poco en él. 

Un «Editor» es un programa que 
realiza unas funciones específicas. Las 
principales pueden ser: entrar datos, 
ordenarlos de alguna manera, modifi- 
carlos y, por último, guardarlos para 
posterior utilización por el mismo u 
otro programa. Si aplicamos esto al 
caso de un editor de caracteres para 
el VIC, ello quiere decir que podremos 
crear nuevos caracteres, modificar los 



existentes y, de alguna manera, guar- 
darlos en disco o cassette para poder 
utilizarlos en los programas que los 
necesiten. 

Si entramos el programa cuyo lis- 
tado se da en la figura 1 y lo ponemos 
en marcha, después del título nos dará 
a entender que debemos esperar a que 
termine sus esotéricas actividades. 
Luego aparecerá la pantalla dividida en 
tres áreas: abajo, a la izquierda, se 
exhiben los caracteres que se pueden 
modificar; arriba, a la izquierda, los 
cuatro caracteres que estamos modi- 
ficando (se suele decir también «edi- 
tando»); en este momento y, a la dere- 



: POKE37 1 54 , 1 27 
S " ORRRHD4THEHV 



'ORE=l 19THEHX 



10 PRIHT'TMffW EDITOR DE CARACTERES " 
20 PRIHT"»M PARA EL VIC— 20" 

30 FGRH* 1 T022 : RR I NT " " :MEXT 

50 RRINT ,, KOSD!ia=UI_SE «3RETUPMBS RARA M 
EMPEZAR" 

60 CETA* : IR A*OCHRt(13)THENGB 

7-0 PRIHT" 73MJ N MOMENTO ROR FAVOR " : C-OSUB38 


100 POKE368S9 , 233 ■■ POKE56 , 26 : POKES5 .• : POK 
ESS0 , 255 : POKE52 , 26 : V-7168 

120 OOSUB36S •■ x—e « v— e 

130 GOSUB39B 
140 GOSUE160 
150 OOTO130 

160 GETflí : A»S2-PEEK{37137! 
:B«PEEK'<37132) : POKE37 154,: 
190 I Fñí= " Q " OR A*= " U " OR A*= " 
=V— 1 

200 I FRí= "Z"OPAt="X" ORAÍ= " C " ORññHD8THENV 
— 1 

210 IFñ*— "Q"ORP*="ñ" ORflt = " Z " OPARHD 1 6THEH 
X — X— 1 

220 IFAÍ="E" ORAÍ= "D " DRfl*= 
=X + 1 

230 I FAAND32PRRQTHEHAt=CHRt ■' 1335 
240 IFX=-1THEHX«15 
250 IFX=16THEHX«0 

260 I Fñí=CHRÍ < 1 33 > THEHPOKEP — 30720 , 170 GO 
SUB510 : POKES.. PEEK(Q)OR2T(7-RX) 

27-0 I FRÍ=CHR* (134) THEHPOKEP-30720 , 17-4:0-0 
SUB510 : ROKEQ ■ PEEK < 0>HHD < 255-2 T( 7-RX ) > 
2S0 IFV=— 1THENV=15 
290 IFV=16THEMV=0 

300 I F A*=CHR* < 1 35 > THEHGOSUB4 1 
310 I Ffií=CHR* <. 1 36 •> THENOOSUB550 

320 I FAÍ-CHR* (137) THEHA=PEEK (36869> : ROKE 
36869, 255 : I FR=255THEHPOKE368S9 , 240 
330 I FAt=CHR* Í1385THEH580 
340 I FA*-CHRt Í1395THEN800 
350 RETURN 

360 PRlNT"n" : GO3UE490 : F0RV*19T023 : ROPX=0 
TÜ15: POKE7680+VÍ22+X , X+ (V-195*16 
37*0 PGKE38400+22*V+X, 2 . NEXTX , V : A*="(l" : GO 
S1JE420 = RETURM 

380 FORN=0TO64*8 : POKE7 1 68+N , PEEK í 32768+H 
■> NEXT : RETURN 

390 P=38422+X+V*22 : POKER , 7 ■ IFPOSTHENPOK 
ES, 4 



1 THEN4 1 

tsmt " : CH=PEE 



400 3=P ' RETURN 

410 PR I NT " SBST7 " : GETAÍ : IFAt = 
420 PRINT"H WWTW*» A» ' 

KÍ7764) : IFCH>47THEH410 

430 OOSUB490 í H-7764 : POKEH+1 , CH+1 : POKEH+2 
2, CH-4-16 : POKEH+23, CH*17 

440 FORV2=0TO1 :FORX2=OTOl :CI«CH+X2+V2*16 
450 FORV 1=0TO7F0RX1=0TO7 

460 I FPEEK c V*C I *3+V 1 ) AND(2t(7-Xn ) THENPO 
KE7702+ (VI ->-V2*e > *22*X 1 +X'2*8 , 170 
470 NEXTX1 ■ VI , X2, V2 
4S0 RETURN 

490 PRINT"»" : F0RN=1T01S : PRI NT " s*¡» 

" : NEXT 

500 33= 174- RETURH 

510 C I =CH : RX=X : RV=V : I FX>7THENC I »CH+ 1 : RX- 
RX-S 

520 I FV>7THENC I "C I + 1 6 : RV=RV-8 
530 0-V+CI*8+RV 
540 RETURN 

550 F0RH»V+CH*8T07175+(CH+1 ~j *S : POIÍEN, : N 
EXT : BOSUE490 

560 FORH-V+ (CH+16) Í8TD7 175t(CH+17>*8: POK 
EN , : NEXT : RETURN 

580 PQKE36869, 240 MO=9006+CH*10 

600 PRIHT'TMa" ' FORCH=CHTOCH + l 6STEP 1 6 

610 F=V+CH*3 

620 PR I NTNO " DATA " R " , " j : FORH-FTOF+1 5 : PR I N 
TPIIDt(STR*(PEEK<H5 ) , 2> " , ■■ .■ ■ NEXT ; PRIHT"II 

640 NCi=NO*5 : NEXTCH 

650 PRINT"RUH100" PRIHT"»"; 

700 PRI NT"»" ; : POKE198 , 9 : FORN = 63 1 TO640 : PO 
KEN ,13: NEXT : EHD 
300 N = 

S10 PR I NT " nWM" : FORM=NTOH+60STEP10 : PR I HTM 
: NEXT : PR I NT " B00N = " M : RR I NT " RUH808 " 
820 IFN<660THEH700 

S30 PRIHT" ™«1 00RERDH : IFHTHEHFORH=HTOH+l 
5 : RE ADA : POKEH, A : NEXT : GOTO 100" 

S40 PRINT700 : FORH=800TO840STEP 1 : PRINTN : 
NEXT " PRIHT" RCIKE 1 , O : SVS1 " = GOTO700 
9399 DATA 

RERBV . 
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ESTE ES UN PROGRAMA 
QUE NOS PERMITE 
DEFINIR NUESTROS PROPIOS 
JUEGOS DE CARACTERES 

FÁCIL Y 

Y 

APROVECHAR LAS 
GRÁFICAS DEL EQUIPO 




cha, el aspecto en tamaño natural de 
los cuatro caracteres en curso de edi- 
ción para facilitar el trabajo. 

En la matriz de edición un «*» sig- 
nifica un punto en la pantalla y un «.» 
significa un punto vacío. El trabajo del 
editor consiste en modificar estas con- 
figuraciones — que corresponden a las 
standard del VIC — y obtener las ne- 
cesarias para un juego, etc.. Para ello 
el punto que cambia de color de forma 
intermitente nos indica la posición del 
«cursor» que nos va a facilitar el tra- 
bajo de edición. Para moverlo debe- 
mos utilizar las teclas siguientes: 

W: Para moverse hacia arriba 
X: Para moverse hacia abajo 
A: Para moverse a la izquierda 
D: Para moverse a la derecha 

Por lo que se refiere a las teclas de 
edición propiamente dichas, son las 
conocidas F1 a F8 y funcionan de la 
siguiente manera: 

F1: Poner un punto en la posición. 

F2: Ver los caracteres normales. 

F3: Quitar un punto. 

F4: Generar las instrucciones DATA 
para el bloque actual de caracte- 
res. 

F5: Seleccionar otro bloque de carac- 
teres a editar. Como se observará, 
los caracteres se editan de cuatro 
en cuatro. Para escoger el bloque 
de cuatro caracteres que se quiere 
editar se pulsa F5 y, cuando apa- 
rezca el interrogante, se responde 
con el primer carácter del nuevo 
bloque. 

F6: Elimina el editor y deja solamente 
las instrucciones DATA correspon- 
dientes a los caracteres editados. 



F7: Pone en blanco el bloque de ca- 
racteres que se están editando. 

Como se ha podido observar, la «sa- 
lida» del editor es una serie de ins- 
trucciones DATA que se pueden alma- 
cenar en cinta o disco como un pro- 
grama normal al que posteriormente 
se le añadirá el programa propiamente 
dicho que maneja estos datos. Vea- 
mos un ejemplo: 

Entramos el programa y modifica- 
mos un bloque de caracteres, por 
ejemplo, el @-A-P-Q. Una vez realizada 
la modificación, pulsamos F4 (crear las 
instrucciones DATA) y seguidamente 
F6 (salir del editor conservando las 
instrucciones DATA). En este momen- 
to aparecerá el mensaje READY. Si ha- 
cemos LIST, obtendremos un pequeño 
programa con números de línea 100, 
9000... y 9999. Este programa es el 
que podemos guardar en disco o cinta 
y que deberá ser el que incorporemos 
en el programa que necesite caracte- 
res especiales. Como prueba haga 
RUN y luego POKE36869.255. En este 
momento, los caracteres definidos de 
nuevo aparecerán con el nuevo aspec- 
to. Para volver a las condiciones nor- 
males haga POKE36869.240. En este 
punto (o antes de realizar la prueba 
anterior) se puede hacer un SAVE de 
este programa para su posterior utili- 
zación. En el programa que utilice este 
nuevo juego de caracteres se tienen 
que ejecutar las líneas que nos ha su- 
ministrado el editor y, en el momento 
de necesitar los nuevos caracteres, 
debe hacerse POKE36869.255, en el 
caso de trabajar con 8K o menos, o 
POKE36869.207 con más de 8K. En 
ambos casos, se puede volver a la 
normalidad con POKE36869.240 ó PO- 
KE36869.192 respectivamente. 

El programa que se adjunta funcio- 
na con 8K ó menos de memoria. 

(continuará) 



micro hit; 



Revista Espartóla de 
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Electrónica 



En sus páginas ya se han publica- 
do, desde el n.° 1 (febrero 1982): 

• Programas para VIC-20: 

— Generación de sonido y pro- 
grama para piano 

— Cálculo de estabilizadores 
con Zener 

— El Despertador 

— El Quinielista. 

• Se han publicado artículos sobre 
los siguientes temas: 

— Lenguajes de programación. 

— La ampliación de un ordena- 
dor con los periféricos. 

— Qué es y cómo funciona un 
ordenador personal. 

— Cuadro de ordenadores pro- 
fesionales/personales en el 
mercado español. 

— Interfaz para cassette. 

— Cuatro puntos decisivos en 
la elección de un ordenador. 

— Los modems. 

— Discos flexibles (floppy disk). 

— Realización de un teclado 
ASCII a partir de un hexa- 
decimal. 

— Las nuevas CPUs: arquitectu- 
ras disfintas, más potencia, 
mayor flexibilidad. 

— Serie de artículos sobre los 
microprocesadores con análi- 
sis de todos sus aspectos, en 
forma progresiva. 

— Aplicaciones de microproce- 
sadores: un sistema de semá- 
foros en la vía pública, Sis- 
tema de alarma anti-robo. 
Sencilla aplicación para mo- 
tores de cassette o de jugue- 
tes eléctricos. 

— Rutinas útiles para la clasifi- 
cación de datos (SORT). 

— Descripción de la PIA. 

— Los convertidores analógico- 
digitales y digital-analógi- 
cos. 

— Nuevos equipos operativos 
de burbujas magnéticas para 
la investigación y las aplica- 
ciones industriales. 

— Los cálculos de puentes de 
medida realizados con micro- 
ordenador. 

— VIC-20 y micros PET/CBM. 

— Diseño y simulación de un 
proyecto con microprocesa- 
dor, desarrollado con el AIM- 
65. 

— Las impresoras. 

— Temporizador programable. 

• Fichas técnicas de microprocesa- 
dores y de micro-ordenadores 

Para números atrasados y para 
suscripción anual (1.975 pías.), 
dirigirse a: 

REDE - Apdo. 35400 - Barcelona 
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APLICACIONES EDUCATIVAS 




por JOAN V. BAZ 

Ésta es realmente una colaboración y no una nueva sección, aunque si la cosa fun- 
cionara y la imaginación — que sabemos inagotable — de nuestros lectores se orien- 
tara hacia la colaboración... 

Joan Baz es maestro en un pueblo de Tarragona; es ¡oven y, sin embargo, ha visto 
mundo y será por esto que no tiene pelos en la lengua. 

Nota de la Redacción: Ponemos al VIC como testigo de que CLUB COMMODORE 
no ha tenido nada que ver en la redacción de este artículo. No obstante, no resistimos 
la tentación de poner de manifiesto una de nuestras adhesiones más inquebrantables a 
las tesis de Joan sobre el tema de las COLABORACIONES. 




Ooy, como tantos de los que leéis es- 
to, un «Vic-adicto». No desde hace mucho, 
claro, pero hay que reconocer que crea 
una cierta dependencia. 

La razón que me impulsa a escribir es- 
tas líneas es que creo que estamos en un 
cierto «impasse». Me explicaré. Esta Re- 
vista debe servir para que nos pasemos 
información, sugerencias, ideas, entre 
usuarios del Vic [entre otros] y no es así. 
Hay pocas colaboraciones. ¿Qué es lo que 
pasa? 

Creo que se debe al poco tiempo que 
hace que tanto el Vic como la Revista es- 
tán en la calle, por un lado. Por otra parte, 
conozco gente que podrían enviar progra- 
mas y no lo hace por miedo al ridículo. A 
mi entender eso es lo realmente ridículo. 
Todos somos novatos en «Vicsic», dado 
que es una máquina muy reciente, así que 
rompamos con el complejo y si queremos 
que la cosa funcione pongámonos a escri- 
bir. Todos ganaremos con ello. Creo que 
un programa regular es mejor que ninguno 
y puede dar lugar a comentarios y enmien- 
das con lo que nos pueden ayudar. 

Y como el movimiento se demuestra an- 
dando, aquí tenéis mi primer programa: 
«Tablas». Lo escribí al poco tiempo de re- 
cibir mi Vic para ayudar a los niños con 
quienes trabajo a repasar las tablas de 
multiplicar. Después de meses de funcio- 
namiento han quedado demostradas tres 
cosas. 

a) Los niños disfrutan estudiando con 
ordenador incluso materias aburridas y re- 
petitivas como ésta. 

b) El Vic es capaz de aguantar meses 
de trato duro. 

c) Dado que los niños han mejorado 
sensiblemente su conocimiento de las ta- 
blas, hemos de reconocer que el método 
funciona. 

Antes de pasar a comentar el programa 
quisiera dejar bien claro que no es mi in- 
tención hacer un panegírico del Vic. En 
próximas colaboraciones le daré un «vis- 
tazo» crítico. 

Dejando aparte los REM (remarks, co- 
mentarios que no afectan al programa en 
sí), empezamos en la línea: 



60: Asigna nombre a las variables de los 
registros de sonido y pantalla. 

70: Limpia el buffer*, da entrada a la 
variable A (tabla a repasar). 

90-100: Imprime la pregunta a calcular, 
limpia el buffer, da entrada a la variable C 
(respuesta del niño). 

110: Caso error (respuesta incorrecta) 
continúa en 170. 

120-140: Respuesta correcta, imprime la 
pregunta y la solución, un mensaje anima 
al niño, en la subrutina 270 el color y el 
sonido realzan el mensaje. 

150: Retraso de tiempo (variable T) pa- 
ra darle tiempo a leer. 



160: Empieza de nuevo. 

170: La variable N controla el número 
de veces que se ha equivocado en la mis- 
ma pregunta; si es mayor o igual a tres, 
sigue en corrección (240). 

180-200: Cambia el color y fondo de la 
pantalla, la limpia e imprime un mensaje 
por la equivocación. 

210-230:Sonido para la equivocación (si- 
renas). Vuelve a la pregunta (90). 

240: Corrección. Imprime la respuesta 
correcta. 

250: Envía a 380 (sonido). 

260: Empieza de nuevo. 

270: Subrutina el sonido. 

380-400: Sonido, empieza de nuevo. 

* El buffer de teclado es una especie 
de depósito donde se van recogiendo las 
teclas que han sido apretadas antes de su 
ejecución; POKE 198,0 lo limpia y es bue- 
na práctica hacerlo antes de un INPUT en 
programas que van a ser utilizados por ni- 
ños (suelen jugar con el teclado). _ 



1 REM **************** 

2 REM REPOSO DE TñELRS 

3 REM **************** 

4 REM »JURN V. BRZ « 

5 REM **************** 

60 S 1 =36376 : S2=36S7S : S3=36E7S ■ EP=368?3 
70 POKE 1 98 , B : I NPUT " ^tBBUE TñELfl REPñSPMO 

30 B<= I NT < RHD 

90 PRINT'TMB» "R¡ "X";E; " = "; 

130 POKE19B,B:lNPUTC 
110 IFCOfi*ETHEN170 

1 20 priht" mrosoa " R ; "X";BJ " = " ; C 

130 pr hit "«nwai»»»i felicisfiiiesiík..»»»»! 

• »»»■ HRS RCERTRDÜ3H" 
140 GOSUE270 

150 FORT=1TO1000 - NEXTT 
160 RUN 

170 N — N-H ■ IFfD»3THEN240 

130 POKEEP , 2B2 " PR I HT " nKMSIW " R ; " X " ,' B ; 

" SK>S" ; c 

190 F>RINT"MKDnSTC>B SIGNIFICA; NO ES I OU 

F>1_ R, . . " 

200 PRIHT"«WSBHE TEMO QUE NO TE LO M3RB 

ES MUV BIEN, INTEN-MTRLO DE NUEVOBS" 

210 POKES3, 13 : F0RL-1T07 : FORM= 1 S0TO235STE 

P2:POKESl-M: FORT= 1 TO 1 : NEXTT : NEXTM 

220 POKES 1 - : FORM= 1 TO 1 00 : NEXTM : NEXTL < FOK 

ES3 , ■- POKEEP . 27 

230 GOTO90 

240 PRINT ,, 3mM«aaESTR BIEN, TE LO DIRE:» 
" J " SISTJS ";Rj"X"jEJ" = ";<R#B> 

250 OOTO380 
260 RUN 

270 POKEEP, 10S : POKES3, 15 

2B0 FORL= 1 4STO220STEP . 7 

230 POKES 1 , L 

300 NEXTL : POKEEP, 154 

310 FORL-128TO200 

320 POKES 1,L 

330 NEXTL ¡ POKEBP , 253 

340 FORL=200TO 1 2ESTEP- 1 

350 POKES 1 , L 

360 NEXTL : POKEEP, 27 

370 POKES3, : POKES 1 , : RETURN 

380 POKES3 ,15: FORL" 1 TO 1 5 ■ FORM=200TO220-4-L 
*2 : POKES 1 , M ■■ NEXTM : NEXTL 

3S>B POKES3, : POKES 1 , : FORT=1TO300 : NEXT 
400 RUN 

RERDV. 
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NOTICIAS 



programas para 
el VIC-20 



MU n este número iniciamos una rese- 
ña de los programas para el VIC-20 
que comercializa MICROELECTRÓNI- 
CA Y CONTROL, S. A. Aquí están los 
primeros: 

PROGRAMAS EN DISCO 

Ref. D-1002 
Programa QLS 

Registro de contactos para radio- 
aficionados. P.V.P. 3.000. 

PROGRAMAS EN CINTA 
Ref. C-128 

Programa Programación lineal 

Método simplex. Cálculo del valor 
de las variables que, satisfacien- 



do las restricciones, hacen máxi- 
ma o mínima una función. En cas- 
tellano. P.V.P. 500. 

Ref. C-129 
Programa Matrices 

Suma, resta, multiplicación, multi- 
plicación por un escalar e inver- 
sión de matrices. En castellano. 
P.V.P. 500. 

Ref. C-131 

Programa Regresiones I 

Contenido: 

Regresión lineal: Cálculo por mí- 
nimos cuadrados de la recta que 
se ajusta mejor a una nube de 
puntos. 



CLUBS DE USUARIOS 




¡Al fin empieza esto a moverse! De Barcelona nos llega el 
siguiente anuncio con ruego de publicación: 

SE ANUNCIA LA INMINENTE CREACIÓN DE 
UN CLUB DE USUARIOS DE VIC-20 EN BAR- 
CELONA. 

LA PRIMERA REUNIÓN TENDRÁ LUGAR EL 
DÍA 13 DE ENERO DE 1983 EN: «SISTEMA», 
BALMES 434, TELÉFONO 211 5440. A LAS 7 
DE LA TARDE. 

¡A ver si cunde el ejemplo! ¡Hasta pronto! 



Regresión múltiple: Variable de- 
pendiente en función de n varia- 
bles independientes de grado 1. 
en Castellano. P.V.P. 500. 

Ref. C-132 

Programa Regresiones II 

Contenido: 

Regresión de orden n: Variable 
dependiente en función de varia- 
ble independiente de grado n. 
Regresión exponencial: Ajuste 
nube de puntos a una curva expo- 
nencial. 

Regresión geométrica: Ajuste de 
una nube de puntos a una curva 
geométrica. En castellano. P.V.P. 
500. 

Ref. C-133 

Programa Estadística I 

Distribución normal, Poisson, bi- 
nomial, chi-cuadrado, Student, F 
de Snedecor. En castellano. P.V.P. 
500. 

Ref. C-134 

Programa Estadística II 

Contenido: Cálculo de la media, 
varianza y desviación tipo, tanto 
de la muestra como de la pobla- 
ción, estando los datos agrupados 
o no. 

Test de chi-cuadrado y test de Stu- 
dent. En castellano. P.V.P. 500. 

Ref. C-135 
Programa Sistemas 

Contenido: 

Resolución de sistemas de n ecua- 
ciones con n incógnitas. 
Resolución de ecuaciones de gra- 
do 2 dando las soluciones tanto 
reales como complejas. 
Cálculo de permutaciones y de 
combinaciones. En castellano. 
P.V.P. 500. 



PROGRAMAS EN CARTUCHO 
Ref. C-404 

Programa Sargon II Chess 

Para jugar al ajedrez «contra» el 
VIC-20. Con 7 niveles de dificul- 
tad. Uno de los juegos más fasci- 
nantes y educativos que existen 
en una de las mejores versiones. 
P.V.P. 4.500. 

Ref. C-405 

Programa Dadar Ratrace 

Un juego de persecución de gran 
efecto en la pantalla de su tele- 
visor. P.V.P. 4.500. 
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para el VIC-20 




En la figura 1 se da el listado de 
algunos segmentos de programa que 
pueden ser de utilidad para los usua- 
rios del VIC-20. Por supuesto, este lis- 



tado no constituye un programa en- 
tero en sí mismo y deben utilizarse 
las partes que sean necesarias. Vea- 
mos estas partes una por una: 



1 REM TRUCO HO 1 ¡ 235 COLORES 

10 FORX-0TO255 

20 POKE36879, X 

30 PR I HTCHRÍ (147) 

40 FORT= 1 TO70B : NEXTT 

50 HEXTX 

60 REM TRUCO HO 2; UN MEHSRJE RUEDA POR 
LA PÑHTñLLñ 

70 POKE3É867, 12 REM PUEDE ESCOJER EL NUM 

ERO DE L I HEPiS DE SU MEHSRJE 

S0 PRIHTCHRÍ í 147> 

90 PRIHT"3SU MEHSRJE. . . " 

100 FORX=0TO120 

110 POKE3S8SS.X 

120 NEXT 

130 GOTO90 

14Q REM TRUCO HO 3; ROTACION DE LR PfiHTñ 
LLR 

150 PRIHTCHRÍt 147) "MAREO" 

16B FORL=0TO6 . 23STEP . 1 

170 POKE36Se4. 13+4*SIHCL) 

130 PCIKE3É865, 27+4*COS(L) 

1 30 HEXT 

200 GOTO160 

210 REM TRUCO HO 4; DIBUJAR LR FUNCION S 
ENO 

220 PRINT"Sarj" 

230 POKE36S67,22 

240 POKE36S65,SS 

250 F<3)-0 : F(0)=123 : F< 1 )»S4 : F<2)=32 : FÍ3) 
= 16 

26© F(4)=3^F(5)=.4:FCS)«.2:FC7) = 1 

270 FORQ=0TO255 

230 POKE7630+Q,Q 

290 POKE3S400+a,2 

300 HEXTQ 

310 FORQ=5120TO5120+25S*S 

320 POKEQ.0 

330 NEXTQ 

340 POKE36869 .. 253 

350 POKE36S66 .PEEK<36866>OR12S 

3SS POKE3SS67. 150 

370 REM 

3S0 REM FUHCIOH R DIEUJRR EN LINEA 410 

390 REM 

400 FORC=0TO175 

4 10 L=45+43*SIHi:C^10) 

420 REM 

430 REM RUT I NA DE DIBUJO EN RLTA RESOLUC 
I OH 

440 REM 

450 ñ=5120 

463 LR=L/S 

470 Lñ=INT(LR) 

4S0 FI=P+(Ln*17S) 

490 LR=(LR-LFl)*3 

500 CR = C,'3 

510 CA"INT(CR) 

520 R=n+<CR*8) 

530 H=P+LR 

540 CR=INT((CR-CR)*S) 

550 POKEfi,PEEK(R>ORF(CR) 

560 NEXTC 

570 REM 

530 REM ESPERRR UHR TECLA 

590 REM ENTONCES VOLVER R NORMAL 

S00 REM 

610 CETA* : IFA*=" "THENS10 

620 POKE36363, 24Ü 

630 POKE36866. 150 

640 POKE36867, 174 

650 POKE36S65, 33 

660 PRINT-rj" 



READV . 



(Fig. 1) 



TRUCO NÜM. 1 - LÍNEAS 10-50 

Este pequeño programa que exhibe 
sucesivamente las 255 combinaciones 
de colores de pantalla y marco es útil 
para determinar, paso a paso, el juego 
de colores que nos puede interesar 
para una aplicación determinada. El 
POKE de la línea 20 es la clave del 
asunto: ejecute el programa y cuando 
vea la combinación deseada pulse 
RUN/STOP— RESTORE (para detener 
el programa) y seguidamente pulse 
PRINT X y tendrá el último valor que 
se ha introducido en el registro corres- 
pondiente del controlador de video. 
Éste es un sistema algo retorcido de 
resolver el problema. Lo más elegante 
es consultar las páginas 37 ó 134 del 
MANUAL DEL USUARIO. 

TRUCO NÚM. 2 - LÍNEAS 70-130 

Se pueden cambiar las dimensiones 
de la «ventana» de video del VIC uti- 
lizando algunos POKES especiales que 
ya se han expuesto en otras partes de 
nuestra Revista. Esta sección de pro- 
grama usa algunos de ellos para exhi- 
bir un mensaje que se desliza por la 
pantalla de una manera que llama mu- 
cho la atención. En la línea 90 puede 
insertarse el mensaje. 

TRUCO NÚM. 3 -LÍNEAS 150-200 

Si es necesario marear a alguien 
por medios sofisticados, se puede uti- 
lizar este truco que también se bene- 
ficia de la posibilidad de jugar con los 
parámetros de video del VIC. Con esta 
rutina se consigue hacer dar vueltas 
al espacio dedicado a caracteres. 

TRUCO NÚM. 4 - LÍNEAS 220-660 

Éste es el más espectacular de to- 
dos, pues permite realizar dibujos en 
alta resolución sin necesidad de car- 
tucho alguno. En el ejemplo que adjun- 
tamos se exhibe el juego de caracte- 
res y luego se dibuja la función seno. 
Como ya hemos explicado mucho del 
vic (VIDEO INTERFACE CHIP), deja- 
mos a la paciencia del lector el des- 
arrollar otras posibilidades de trazado 
gráfico. _ 
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NOTAS 




Dar una lista de números por panta- 
lla — o impresora — puede producir 
cierta frustración y desconsuelo si se 
utiliza para ello la instrucción TAB. 
Veamos un ejemplo: 

Si el valor de la variable es cero, 
este número se escribirá en la colum- 
na de la izquierda y esto mismo suce- 
derá con todos los valores de una sola 
cifra. Con dos o más cifras, las canti- 
dades se alinearán por la izquierda 
(se suele hablar de justificación del 
margen izquierdo) que es lo contrario 
a los más elementales criterios de 
legibilidad y elegancia. Es evidente 
que se debe usar el número de dígitos 
(incluyendo el punto decimal) para 
controlar la expresión TAB. Un número 
tiene a la izquierda un espacio reser- 
vado para el signo y a la derecha uno 
para el cursor que deben tenerse en 
cuenta. La función LEN «cuenta» el 
número de caracteres de una cadena 
alfanumérica pero, para que nos sirva, 
debemos convertir la cantidad previa- 
mente en una cadena. Esto se hace 
con STRS. Veamos: 

X = LEN ( STRS ( A ) ) — 1 

donde A es la variable numérica, debe 
darnos lo que buscamos. El espacio 
del cursor a la derecha no se tiene en 
cuenta por STRS y se resta 1 para com- 
pensar el espacio de la izquierda. Si 
hacemos PRINT TAB (10— X) la cosa 
tiene aspecto de funcionar ¿no? No, 
aún faltan algunos detalles. 

Hay una serie de posibilidades que 
se deben tener en cuenta. A veces se 
desea incluir ceros no significativos 
en las cantidades que se imprimen 
(ej.: «0038» en lugar de «38»). Con nú- 
meros que incluyen decimales pode- 
mos necesitar un número fijo de és- 
tos, seguidos por los ceros no signifi- 
cativos que hagan falta. Todo esto 
afectará el posicionamiento de las can- 
tidades. 

Incuestionablemente la manera más 
fácil de manejar el asunto de forma- 
tear cantidades (otra palabra de argot 
informático, espero que quede bien 
claro su significado por el contexto) 
consiste en convertirlas en cadenas 
alfanuméricas: 



AS = MIDS ( STRS ( A ) ,2) 
STRS convierte «A» en una cadena y 
MIDS se utiliza para tomar el segundo 
carácter — es decir prescindiendo del 
primer espacio — . Para añadir ceros 
no significativos usaremos la función 
RIGHTS: 

AS = RIGHTS ( «000000» + AS, 4 ) 

Si «A» es un entero, esto nos dará 
una cadena de cuatro caracteres. El 
número de ceros no significativos de- 
penderá de la longitud de «A» (ej.: 
«16» se verá como «0016», sin embar- 
go «1024» quedará igual). Para abre- 
viar todo lo anterior se puede obtener 
con: 

AS = RIGHTS ( «000000» + MIDS 
(STRS (A) ,2) ,4) 

El redondeo de números tiene su pe- 
queño truco. Lo primero es decidir 
qué número de decimales queremos. 
El siguiente es un ejemplo para dos 
dígitos decimales: 

A = 1035.55534 

A = INT ( A * 100)/ 100 

PRINT A 

1035.55 

Este ejemplo «mueve» el número dos 
cifras a la izquierda, corta la parte de- 
cimal que queda y lo «mueve» a la 
derecha dos lugares otra vez. No obs- 
tante, esto no es propiamente «redon- 
dear» sino más bien «truncar» que no 
es lo mismo. Para redondear tenemos 
que tener en cuenta la importancia de 



los decimales que despreciamos. Así 
nuestro ejemplo se convierte en: 

A = 1035.55534 

A = INT( A * 100 + .5) / 100 

PRINT A 

1035.56 

¡Esto sí es un redondeo! (fíjese en 
la segunda cifra decimal). De una for- 
ma general la segunda línea quedaría: 

A = INT ( A * 10 A D + .5) / 10 A D 
Donde «D» es el número de decimales 
deseado. 

Los valores que terminan con un 
solo decimal o menos deben ser re- 
dondeados con ceros no significativos. 
De nuevo esto puede hacerse con ma- 
nipulación de cadenas de caracteres: 

A = 1035.59534 
V = A 

A = INT (ABS (A) * 100 + .5) / 100) 

PRINT A 

1035.6 

SS = CHRS(32 — (V<0) * 13) 
AS = MIDS (STRS (INT (A)), 2) 
DP = INT ((A — INT (A)) * 100 + .5) 
AS = AS + »,» + RIGTHS 

( «00» + MIDS ( STRS (DP), 2 ), 2 ) 
AS = RIGTHS ( «[10 esp. ]» + 

S$ + AS , 10) 
PRINT AS 
1035.60 

Esto — quizás — tiene un aspecto 
algo confuso, pero lo hace todo: aña- 
de ceros no significativos, redondea, 
etc.. Debe hacerse notar que hemos 
utilizado el valor ABSoluto de A antes 
de entrar la rutina (aunque V conserva 
el valor original de A). SS será o un 
espacio o un signo menos dependien- 
do del valor de A. DP sirve para tomar 
los decimales de A y redondear esta 
cantidad. Lo siguiente es montar estas 
partes en un todo que será la cadena 
AS, — nótese que se sustituye el pun- 
to* decimal utilizado en los países an- 
glosajones por la coma que se usa 
aquí — y, por último, añadimos espa- 
cios en blanco y el signo con SS. En la 
figura 1 se dan las rutinas en forma 
de programa, dando como resultado la 
impresión justificada a la derecha con 
y sin ceros. _ 
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20 
30 

-*0 

50 ñ 
60 



REM RUTINA DE IMPRESION SIN CEROS 
I NPUTR 



= I NT CHES<R5*1 00-*- - 5 > S 1 00 
S*=CHRÍ < 32- C V<0 >#135 
T»0 M=niI)í(STRt(IHTÍfl}),2) 
30 DP= INTC(R-I NT <R>)* 1BO+ . 5 > 

90 R*-fl*+" J "+RIGHTÍÍ "00"+MIEÍ <STRÍ <rP> j 

•j , 2 5 

100 fit=RIGHT*<" "-t-S* + R*j 103 

110 PRINTTRBC12)nt 

120 REM RUT I NR DE IMPRESION CON CEROS 
130 I NPUTR 
140 V=R 

150 H=INT(flBS(R)*10B+.5VlBB 
160 St=CHR* < 32-< V<B ? * 1 3 > 
17*0 R*=MID*(STRi{INT(B)>,2) 
1S0 DP=INT(( R— I NT (R>)*1 00+ .55 

1 90 R*=R*-t- " .. "+RI GHTt < " 00 "+riIDtí STRÍ (DP) 
2} , 2> 

200 IFSi=" "THEHSÍ=="B" 

210 R*=R I GHTÍ C " 0000000000 •■ -t-R* , 1 y 
220 PRIHTTRE<ll)SÍ+fi* 

RERDV, 



(Fig. 1) 



club commodore 



16 



Los lectores que se sientan impulsados a plantear una consulta que pueda aclarar sus dudas 
Y — ¿por qué no? — la de otros muchos, pueden manifestarla por escrito remitiéndola a: 
CORREO ABIERTO - «Club Commodore» - Calle Taquígrafo Serra, n.° 7, 5." planta - Barcelo- 
na-29. Pondremos todas nuestras luces a su disposición para las aclaraciones. ¡Que nadie 
se quede con sus dudas, cavilando en solitario! 



Pregunta: ¿Se puede conectar una 
unidad de discos doble tipo 8050 ó 
4040 al VIC? 

Respuesta: Cuando se disponga 
del cartucho de interfaz IEEE-488 para 
el VIC (anunciado por COMMODORE) 
se podrá conectar al VIC cualquier pe- 
riférico de la línea CBM y cualquier 
instrumento (este bus es muy utilizado 
en instrumentación) que incorpore es- 
te standard. 

Pregunta: ¿Cómo puedo conectar 
un modem al VIC? 

Respuesta: Depende de qué tipo 
de interfaz con el ordenador use el 
modem (modem significa MOdulador- 
DEModulador y sirve para transmitir 
y recibir información a través de la 
línea telefónica). Si éste lleva interfaz 
para el bus IEEE-488 la pregunta queda 
resuelta en el párrafo anterior; si lleva 
interfaz RS 232 C, para el VIC existe 
un cartucho que se conecta al port de 
usuario y que permite enlazar con este 
standard serie (así como el IEEE-488- 
es el bus paralelo más utilizado, el 
RS 232 C es el más popular de los bu- 
ses de datos serie). En este caso el 
sistema operativo (KERNAL) del VIC 
permite utilizarlo como si fuera un 
periférico más. 



se puede conec- 
tar una impresora al VIC-20? 

Respuesta: A) Lo más fácil (y ba- 
rato) consiste en conectar la impreso- 
ra que vende COMMODORE para el 
VIO No obstante, en determinadas 
aplicaciones, pueden necesitarse algu- 
nas características que no se incluyen 
en la impresora del VIC (ej., un ancho 
de papel mayor). En este caso: 

B) Algunas impresoras llevan como 
enlace standard el RS 232 C (véase la 
pregunta anterior), en este caso se 
puede utilizar el cartucho de interfaz 
para este standard. 

C) Otro de los enlaces típicos de 
las impresoras es el llamado TIPO 
CENTRONICS que no es más que un 
enlace paralelo de 7 ó 8 bits a nivel 
TTL (esto indica los niveles de tensión 
de las señales que se intercambian 
el ordenador y la impresora y que son 
+ 5 V para el 1 lógico y V para el 0). 
En este caso se puede conectar la im- 
presora directamente al port de usua- 
rio del VIC que dispone de estos nive- 
les de tensión. Entonces la Informa- 
ción se manda en paralelo y no en 
serie como en el caso del RS 232 C, lo 
cual es más rápido pero tiene el incon- 
veniente de no poder usar las rutinas 
del sistema operativo porque cada im- 
presora tiene su sistema de intercam- 
bio de información. 



MARKETCLUB 



• Se busca experto en VIC-20 para colaborar en la creación y coordinación de 
un Club de Usuarios de VIC en Barcelona. Llamar a Srta. Rosa Romero. Telé- 
fono 211 54 40. 

• Vendo cartucho 16K VIC-20, por 14.000 ptas. Hago programas en Basic de 
Commodore (todas las versiones) bajo encargo. Desearía contactar con usuarios 
de Commodore en la zona de Madrid, para cambio de programas, impresiones, 
pokes especiales, etc.. Razón: Francisco Gutiérrez. Santiago Rusiñol, 12. MA- 
DRID-3. Teléf. (91) 253 13 40. Horas 




• Vendo equipo CBM 3032 y 3040 (CPU y 
al (93) 300 16 27 de BARCELONA. 

• Desearía contactar con personas interesadas en la enseñanza de la Informá- 
tica a jóvenes de 9-14 años para adquirir programas y documentación. Llamar 
a Eduardo Guardino al (93) 209 94 49 de BARCELONA. 



¿Puede invertirse hacia 
arriba el avance automático de la pan- 
talla (SCROLL)? 

Respuesta: Puede hacerse SCROLL 
invertido con una rutina en lenguaje 
máquina. No existe en ROM una rutina 
que pueda hacer esto. Así pues, hay 
que escribir una. 

Pregunta: ¿Hay algún comando 
asignádo a las teclas de función en 
el cartucho de ayuda al programador? 

Respuesta: Sí, hay dos juegos de 
funciones que se asignan automática- 
mente al inicializar el cartucho (al ha- 
cer SYS 4096*7 + 9 ó SYS 28681). No 
obstante, estas funciones se pueden 
redefinir según las necesidades del 
usuario. 

Pregunta: ¿Es posible devolver al 
VIC a una configuración de memoria 
sin expansión y sin quitar los cartu- 
chos? 

Respuesta: No, para trabajar como 
si tuviéramos el VIC con un mínimo 
de memoria hay que desconectar di- 
cha memoria y para ello es imprescin- 
dible cerrar el interruptor de red. 

Pregunta: ¿Cómo puede moverse 
la memoria de pantalla en el espacio 
de memoria del VIC? 

Respuesta: Para cambiar la posi- 
ción de la memoria de pantalla hay que 
cambiar el contenido de los cuatro bits 
más altos de la posición de memoria 
36869. Éste es el puntero de memoria 
de pantalla en el controlador de video. 
Además, debe «decírsele» al editor de 
pantalla (el programa en el sistema 
operativo que se dedica a la gestión 
de la pantalla) dónde ha de hacer sus 
operaciones. Esto se consigue hacien- 
do un POKE en la posición 648 con el 
valor del BYTE más significativo de la 
nueva dirección. Luego debe reinicia- 
lizarse el sistema operativo pulsan- 
do simultáneamente RUN/RESTORE o 
con SYS 65234. 

Pregunta: ¿En qué posición de me- 
moria empieza el BASIC con los car- 
tuchos de 8 y 16K conectados? 

Respuesta: El BASIC (START OF 
BASIC) se localiza en 4096 decimal 
con más de 8K de memoria. 
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Así es el V1C-20 

• Lenguaje BASIC extendido. 

• Sistema operativo COMMODORE, 

• 5 K RAM amplíable a 32 K. 

• 16 colores, 4 generadores de sonido. 

• 66 caracteres gráficos. 

• Periféricos disponibles: 

- Cassette. 

- Impresora de agujas. 

- Unidad de disco de 170 K. 

Así hace las cosas el VIC-20 

• Enseria informática. 



•VI \ ' 

'1 Uí£jH»SE* 



Con la adquisición de su VIC-20 recibirá ademas 
» MANUAL DEL USUARIO. 

INTRODU CHA Al i I NGUAJI; DL 
S|| • „ • i ! | l'Kt XJRAMACION BASIC 
sÚnLi del ' ■ Y 17 PROGRAMAS DI: 

Sen dos cassettes). 




» Efectúa todo tipo de cálculos 
matemáticos. 

• Realiza funciones docentes. 

• Se encarga de múltiples tareas 
profesionales. 

• Proporciona divertidos momentos de 
ocio. 

• Ayuda a planificar labores domésticas. 

• Hace todas las aplicaciones 
me Vd. imagine. 




Ce commodore 

v COMPUTER 




